home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 March & April / Amiga-CD 1997 #3-4.iso / aminet / xopa / xopa-installation < prev    next >
Text File  |  1997-01-08  |  4KB  |  117 lines
  1. ; $VER: XOpa-Installation 1.92
  2. ; 8.1.'97
  3. ; Install script for XOpa
  4.  
  5. (set @abort-button "Installation abbrechen")
  6. (set @language     "deutsch")
  7. (set @default-dest "Work:Tools")
  8. (set @user-level   1)
  9.  
  10.  
  11. (set hello (cat  "\nWillkommen zu der Installation von XOpa 1.92!\n\n"
  12.                  "Die Installation läuft weitgehend automatisch ab.\n"
  13.                  "Damit XOpa funktioniert, benötigen Sie mindestens\n"
  14.                  "AmigaOS 2.04. XOpa benötigt keine Eintragungen\n"
  15.                  "in Ihrer User-Startup.\n"
  16.                  "Die Dokumentation ist derzeit nur im\n"
  17.                  "AmigaGuide-Format vorhanden.\n\n"
  18.                  "Eine Vollinstallation benötigt ca. 250kB.")
  19. )
  20.  
  21. (procedure XOpaInstall
  22.   (set destdir (askdir
  23.                    (prompt  "In welchem Verzeichnis soll XOpa installiert werden?\n"
  24.                             "Es wird keine eigene Schublade generiert.")
  25.                    (help    @askdir-help)
  26.                    (default @default-dest)))
  27.   (set @default-dest destdir)
  28.  
  29.   (set whichPart (askoptions
  30.                       (prompt  "Welche Teile des Programmes möchten Sie installieren?")
  31.                       (help    @askoptions-help)
  32.                       (choices "XOpa-Hauptprogramm"
  33.                                "Dokumentation"
  34.                                "Strukturdefinitionen"
  35.                                "Identify-Library")
  36.                       (default 15)))
  37.  
  38.   (if (IN whichPart 0)
  39.     (
  40.       (copyfiles (prompt "Kopiere XOpa-Hauptprogramm...")
  41.                  (help   @copyfiles-help)
  42.                  (source "XOpa")
  43.                  (dest   destdir))
  44.       (copyfiles (nogauge)
  45.                  (help   @copyfiles-help)
  46.                  (source "XOpa.info")
  47.                  (dest   destdir))
  48.       (if (= (exists "XOpa-Registration") 1)
  49.         (
  50.           (copyfiles (prompt "Kopiere XOpa-Registration...")
  51.                      (help   @copyfiles-help)
  52.                      (source "XOpa-Registration")
  53.                      (dest   destdir))
  54.           (copyfiles (nogauge)
  55.                      (help   @copyfiles-help)
  56.                      (source "XOpa-Registration.info")
  57.                      (dest   destdir))
  58.         )
  59.       )
  60.     )
  61.   )
  62.   (complete 60)
  63.  
  64.   (if (IN whichPart 1)
  65.     (
  66.       (copyfiles (prompt "Kopiere Dokumentation...")
  67.                  (help   @copyfiles-help)
  68.                  (source "XOpa.guide")
  69.                  (dest   destdir))
  70.       (copyfiles (nogauge)
  71.                  (help   @copyfiles-help)
  72.                  (source "XOpa.guide.info")
  73.                  (dest   destdir))
  74.     )
  75.   )
  76.   (complete 80)
  77.  
  78.   (if (IN whichPart 2)
  79.     (
  80.       (copyfiles (prompt "Kopiere Strukturdefinitionen...")
  81.                  (help   @copyfiles-help)
  82.                  (source "XOpa.structs")
  83.                  (dest   destdir))
  84.     )
  85.   )
  86.   (complete 87)
  87.  
  88.   (if (IN whichPart 3)
  89.     (
  90.       (copyfiles (prompt "Kopiere Identify-Library...")
  91.                  (help   @copyfiles-help)
  92.                  (source "identify.library")
  93.                  (dest   "libs:"))
  94.     )
  95.   )
  96.   (complete 94)
  97.  
  98.   (set whichLang (askoptions
  99.                       (prompt  "Welche Sprachen möchten Sie installieren?")
  100.                       (help    @askoptions-help)
  101.                       (choices "deutsch")
  102.                       (default 1)))
  103.  
  104.   (if (IN whichLang 0)
  105.     (
  106.       (copyfiles (prompt "Kopiere deutschen Katalog...")
  107.                  (help   @copyfiles-help)
  108.                  (source "catalogs/deutsch/XOpa.catalog")
  109.                  (dest   "locale:catalogs/deutsch/"))
  110.     )
  111.   )
  112.   (complete 100)
  113. )
  114.  
  115. (message hello)
  116. (XOpaInstall)
  117.